/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_01 / hints / Calendar / Cal_Prog

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 3e 22 43 | 61 6c 5f 50 72 6f 67 22 |.....>"C|al_Prog"|
|00000010| 0d 00 14 3a f4 20 43 61 | 6c 65 6e 64 61 72 20 63 |...:. Ca|lendar c|
|00000020| 72 65 61 74 69 6f 6e 20 | 70 72 6f 67 72 61 6d 20 |reation |program |
|00000030| 66 6f 72 20 69 6d 70 6f | 72 74 20 69 6e 74 6f 20 |for impo|rt into |
|00000040| 49 6d 70 72 65 73 73 69 | 6f 6e 0d 00 1e 20 f4 20 |Impressi|on... . |
|00000050| 28 43 29 20 49 61 6e 20 | 53 75 6d 6d 65 72 73 20 |(C) Ian |Summers |
|00000060| 20 4a 75 6c 79 20 31 39 | 39 33 0d 00 28 04 0d 00 | July 19|93..(...|
|00000070| 32 25 ee 85 20 ff 20 22 | 2a 43 4c 4f 53 45 22 3a |2%.. . "|*CLOSE":|
|00000080| f6 3a f1 20 22 20 61 74 | 20 6c 69 6e 65 20 22 20 |.:. " at| line " |
|00000090| 9e 3a e0 0d 00 3c 04 0d | 00 46 14 f1 20 8a 32 38 |.:...<..|.F.. .28|
|000000a0| 29 22 43 61 6c 65 6e 64 | 61 72 22 0d 00 50 04 0d |)"Calend|ar"..P..|
|000000b0| 00 5a 3a f1 20 27 8a 38 | 29 22 43 72 65 61 74 20 |.Z:. '.8|)"Creat |
|000000c0| 79 6f 75 72 20 6f 77 6e | 20 61 70 70 6f 69 6e 74 |your own| appoint|
|000000d0| 6d 65 6e 74 73 27 20 63 | 61 6c 65 6e 64 61 72 20 |ments' c|alendar |
|000000e0| 61 6e 64 20 74 68 65 6e | 22 0d 00 64 04 0d 00 6e |and then|"..d...n|
|000000f0| 23 f1 20 27 8a 31 39 29 | 22 49 6d 70 6f 72 74 20 |#. '.19)|"Import |
|00000100| 69 6e 74 6f 20 49 6d 70 | 72 65 73 73 69 6f 6e 22 |into Imp|ression"|
|00000110| 0d 00 78 04 0d 00 82 27 | f1 20 27 8a 31 37 29 22 |..x....'|. '.17)"|
|00000120| 28 43 29 20 49 61 6e 20 | 53 75 6d 6d 65 72 73 20 |(C) Ian |Summers |
|00000130| 20 4a 75 6c 79 20 31 39 | 39 33 22 0d 00 8c 04 0d | July 19|93".....|
|00000140| 00 96 08 40 25 3d 30 0d | 00 a0 0e 45 72 72 6f 72 |...@%=0.|...Error|
|00000150| 25 20 3d 20 a3 0d 00 aa | 04 0d 00 b4 13 f4 20 53 |% = ....|...... S|
|00000160| 65 74 20 75 70 20 41 72 | 72 61 79 73 0d 00 be 04 |et up Ar|rays....|
|00000170| 0d 00 c8 28 49 6e 70 75 | 74 5f 46 69 6c 65 24 20 |...(Inpu|t_File$ |
|00000180| 3d 20 22 3c 4f 62 65 79 | 24 44 69 72 3e 2e 43 61 |= "<Obey|$Dir>.Ca|
|00000190| 6c 5f 45 76 65 72 79 22 | 0d 00 d2 1c 46 69 6c 65 |l_Every"|....File|
|000001a0| 5f 49 6e 20 3d 20 8e 28 | 49 6e 70 75 74 5f 46 69 |_In = .(|Input_Fi|
|000001b0| 6c 65 24 29 0d 00 dc 04 | 0d 00 e6 36 f1 20 27 8a |le$)....|...6. '.|
|000001c0| 31 31 29 22 53 45 54 54 | 49 4e 47 20 55 50 20 45 |11)"SETT|ING UP E|
|000001d0| 56 45 52 59 20 59 45 41 | 52 20 44 41 54 41 20 66 |VERY YEA|R DATA f|
|000001e0| 72 6f 6d 20 43 61 6c 5f | 45 76 65 72 79 22 0d 00 |rom Cal_|Every"..|
|000001f0| f0 0a 4c 25 20 3d 20 30 | 0d 00 fa 1b 4e 75 6d 5f |..L% = 0|....Num_|
|00000200| 43 6f 6c 25 20 3d 20 bb | 28 a4 47 65 74 5f 4c 69 |Col% = .|(.Get_Li|
|00000210| 6e 65 29 0d 01 04 04 0d | 01 0e 22 4d 6f 6e 74 68 |ne).....|.."Month|
|00000220| 73 5f 69 6e 5f 59 65 61 | 72 25 20 3d 20 bb 28 a4 |s_in_Yea|r% = .(.|
|00000230| 47 65 74 5f 4c 69 6e 65 | 29 0d 01 18 84 e7 20 4d |Get_Line|)..... M|
|00000240| 6f 6e 74 68 73 5f 69 6e | 5f 59 65 61 72 25 20 3d |onths_in|_Year% =|
|00000250| 20 30 20 8c 20 f2 45 72 | 72 6f 72 28 22 28 56 61 | 0 . .Er|ror("(Va|
|00000260| 6c 75 65 3d 22 2b c3 28 | 4d 6f 6e 74 68 73 5f 69 |lue="+.(|Months_i|
|00000270| 6e 5f 59 65 61 72 25 29 | 2b 22 29 20 54 68 65 72 |n_Year%)|+") Ther|
|00000280| 65 20 6d 75 73 74 20 62 | 65 20 61 74 20 6c 65 61 |e must b|e at lea|
|00000290| 73 74 20 31 20 6d 6f 6e | 74 68 20 69 6e 20 74 68 |st 1 mon|th in th|
|000002a0| 65 20 79 65 61 72 22 29 | 3a 4d 6f 6e 74 68 73 5f |e year")|:Months_|
|000002b0| 69 6e 5f 59 65 61 72 25 | 20 3d 20 31 32 0d 01 22 |in_Year%| = 12.."|
|000002c0| 04 0d 01 2c 20 44 61 79 | 73 5f 69 6e 5f 57 65 65 |..., Day|s_in_Wee|
|000002d0| 6b 25 20 3d 20 bb 28 a4 | 47 65 74 5f 4c 69 6e 65 |k% = .(.|Get_Line|
|000002e0| 29 0d 01 36 7b e7 20 44 | 61 79 73 5f 69 6e 5f 57 |)..6{. D|ays_in_W|
|000002f0| 65 65 6b 25 20 3d 20 30 | 20 8c 20 f2 45 72 72 6f |eek% = 0| . .Erro|
|00000300| 72 28 22 28 56 61 6c 75 | 65 3d 22 2b c3 28 44 61 |r("(Valu|e="+.(Da|
|00000310| 79 73 5f 69 6e 5f 57 65 | 65 6b 25 29 2b 22 29 20 |ys_in_We|ek%)+") |
|00000320| 54 68 65 72 65 20 6d 75 | 73 74 20 62 65 20 61 74 |There mu|st be at|
|00000330| 20 6c 65 61 73 74 20 31 | 20 64 61 79 20 69 6e 20 | least 1| day in |
|00000340| 74 68 65 20 77 65 65 6b | 22 29 3a 44 61 79 73 5f |the week|"):Days_|
|00000350| 69 6e 5f 57 65 65 6b 25 | 20 3d 20 37 0d 01 40 04 |in_Week%| = 7..@.|
|00000360| 0d 01 4a 22 de 20 4d 6f | 6e 74 68 5f 4e 61 6d 65 |..J". Mo|nth_Name|
|00000370| 24 28 4d 6f 6e 74 68 73 | 5f 69 6e 5f 59 65 61 72 |$(Months|_in_Year|
|00000380| 25 29 0d 01 54 24 de 20 | 4d 6f 6e 74 68 5f 4c 65 |%)..T$. |Month_Le|
|00000390| 6e 67 74 68 25 28 4d 6f | 6e 74 68 73 5f 69 6e 5f |ngth%(Mo|nths_in_|
|000003a0| 59 65 61 72 25 29 0d 01 | 5e 26 de 20 4d 6f 6e 74 |Year%)..|^&. Mont|
|000003b0| 68 5f 4f 66 66 73 65 74 | 25 28 4d 6f 6e 74 68 73 |h_Offset|%(Months|
|000003c0| 5f 69 6e 5f 59 65 61 72 | 25 2b 31 29 0d 01 68 1e |_in_Year|%+1)..h.|
|000003d0| de 20 44 61 79 5f 4e 61 | 6d 65 24 28 44 61 79 73 |. Day_Na|me$(Days|
|000003e0| 5f 69 6e 5f 57 65 65 6b | 25 29 0d 01 72 22 de 20 |_in_Week|%)..r". |
|000003f0| 44 61 79 5f 6f 66 5f 59 | 65 61 72 24 28 4e 75 6d |Day_of_Y|ear$(Num|
|00000400| 5f 43 6f 6c 25 2c 33 2c | 34 30 30 29 0d 01 7c 04 |_Col%,3,|400)..|.|
|00000410| 0d 01 86 1b f2 53 65 74 | 5f 75 70 5f 45 76 65 72 |.....Set|_up_Ever|
|00000420| 79 5f 59 65 61 72 5f 44 | 61 74 61 0d 01 90 04 0d |y_Year_D|ata.....|
|00000430| 01 9a 1a f2 53 65 74 5f | 75 70 5f 54 68 69 73 5f |....Set_|up_This_|
|00000440| 59 65 61 72 5f 44 61 74 | 61 0d 01 a4 04 0d 01 ae |Year_Dat|a.......|
|00000450| 50 e7 20 45 72 72 6f 72 | 25 20 3d 20 a3 20 8c 20 |P. Error|% = . . |
|00000460| f2 43 61 6c 63 75 6c 61 | 74 65 20 8b 20 f1 20 27 |.Calcula|te . . '|
|00000470| 22 43 6f 72 72 65 63 74 | 20 22 45 72 72 6f 72 25 |"Correct| "Error%|
|00000480| 22 20 65 72 72 6f 72 28 | 73 29 20 62 65 66 6f 72 |" error(|s) befor|
|00000490| 65 20 63 6f 6e 74 69 6e | 75 69 6e 67 22 0d 01 b8 |e contin|uing"...|
|000004a0| 04 0d 01 c2 10 f2 43 6c | 6f 73 65 5f 46 69 6c 65 |......Cl|ose_File|
|000004b0| 73 0d 01 cc 04 0d 01 d6 | 05 e0 0d 01 e0 04 0d 01 |s.......|........|
|000004c0| ea 04 0d 01 f4 1c dd f2 | 53 65 74 5f 75 70 5f 45 |........|Set_up_E|
|000004d0| 76 65 72 79 5f 59 65 61 | 72 5f 44 61 74 61 0d 01 |very_Yea|r_Data..|
|000004e0| fe 04 0d 02 08 0f 4d 6f | 6e 74 68 24 20 3d 20 22 |......Mo|nth$ = "|
|000004f0| 22 0d 02 12 18 4d 6f 6e | 74 68 5f 4f 66 66 73 65 |"....Mon|th_Offse|
|00000500| 74 25 28 30 29 20 3d 20 | 30 0d 02 1c 1e e3 20 4d |t%(0) = |0..... M|
|00000510| 25 20 3d 20 31 20 b8 20 | 4d 6f 6e 74 68 73 5f 69 |% = 1 . |Months_i|
|00000520| 6e 5f 59 65 61 72 25 0d | 02 26 21 20 20 4d 6f 6e |n_Year%.|.&!  Mon|
|00000530| 74 68 5f 4e 61 6d 65 24 | 28 4d 25 29 20 3d 20 a4 |th_Name$|(M%) = .|
|00000540| 47 65 74 5f 4c 69 6e 65 | 0d 02 30 29 20 20 4d 6f |Get_Line|..0)  Mo|
|00000550| 6e 74 68 24 20 3d 20 4d | 6f 6e 74 68 24 2b c0 4d |nth$ = M|onth$+.M|
|00000560| 6f 6e 74 68 5f 4e 61 6d | 65 24 28 4d 25 29 2c 33 |onth_Nam|e$(M%),3|
|00000570| 29 0d 02 3a 26 20 20 4d | 6f 6e 74 68 5f 4c 65 6e |)..:&  M|onth_Len|
|00000580| 67 74 68 25 28 4d 25 29 | 20 3d 20 bb 28 a4 47 65 |gth%(M%)| = .(.Ge|
|00000590| 74 5f 4c 69 6e 65 29 0d | 02 44 08 ed 20 4d 25 0d |t_Line).|.D.. M%.|
|000005a0| 02 4e 04 0d 02 58 1c e3 | 20 44 25 20 3d 20 31 20 |.N...X..| D% = 1 |
|000005b0| b8 20 44 61 79 73 5f 69 | 6e 5f 57 65 65 6b 25 0d |. Days_i|n_Week%.|
|000005c0| 02 62 1f 20 20 44 61 79 | 5f 4e 61 6d 65 24 28 44 |.b.  Day|_Name$(D|
|000005d0| 25 29 20 3d 20 a4 47 65 | 74 5f 4c 69 6e 65 0d 02 |%) = .Ge|t_Line..|
|000005e0| 6c 08 ed 20 44 25 0d 02 | 76 04 0d 02 80 14 54 61 |l.. D%..|v.....Ta|
|000005f0| 62 24 20 3d 20 a4 47 65 | 74 5f 4c 69 6e 65 0d 02 |b$ = .Ge|t_Line..|
|00000600| 8a 19 4e 65 77 5f 4c 69 | 6e 65 24 20 3d 20 a4 47 |..New_Li|ne$ = .G|
|00000610| 65 74 5f 4c 69 6e 65 0d | 02 94 1e 42 6c 61 6e 6b |et_Line.|...Blank|
|00000620| 5f 44 61 79 73 5f 4f 6e | 24 20 3d 20 a4 47 65 74 |_Days_On|$ = .Get|
|00000630| 5f 4c 69 6e 65 0d 02 9e | 1f 42 6c 61 6e 6b 5f 44 |_Line...|.Blank_D|
|00000640| 61 79 73 5f 4f 66 66 24 | 20 3d 20 a4 47 65 74 5f |ays_Off$| = .Get_|
|00000650| 4c 69 6e 65 0d 02 a8 17 | 44 61 79 5f 4f 6e 24 20 |Line....|Day_On$ |
|00000660| 3d 20 a4 47 65 74 5f 4c | 69 6e 65 0d 02 b2 18 44 |= .Get_L|ine....D|
|00000670| 61 79 5f 4f 66 66 24 20 | 3d 20 a4 47 65 74 5f 4c |ay_Off$ |= .Get_L|
|00000680| 69 6e 65 0d 02 bc 18 44 | 61 74 65 5f 4f 6e 24 20 |ine....D|ate_On$ |
|00000690| 3d 20 a4 47 65 74 5f 4c | 69 6e 65 0d 02 c6 19 44 |= .Get_L|ine....D|
|000006a0| 61 74 65 5f 4f 66 66 24 | 20 3d 20 a4 47 65 74 5f |ate_Off$| = .Get_|
|000006b0| 4c 69 6e 65 0d 02 d0 19 | 4d 6f 6e 74 68 5f 4f 6e |Line....|Month_On|
|000006c0| 24 20 3d 20 a4 47 65 74 | 5f 4c 69 6e 65 0d 02 da |$ = .Get|_Line...|
|000006d0| 1a 4d 6f 6e 74 68 5f 4f | 66 66 24 20 3d 20 a4 47 |.Month_O|ff$ = .G|
|000006e0| 65 74 5f 4c 69 6e 65 0d | 02 e4 04 0d 02 ee 0d d9 |et_Line.|........|
|000006f0| 23 46 69 6c 65 5f 49 6e | 0d 02 f8 04 0d 03 02 05 |#File_In|........|
|00000700| e1 0d 03 0c 04 0d 03 16 | 04 0d 03 20 1b dd f2 53 |........|... ...S|
|00000710| 65 74 5f 75 70 5f 54 68 | 69 73 5f 59 65 61 72 5f |et_up_Th|is_Year_|
|00000720| 44 61 74 61 0d 03 2a 04 | 0d 03 34 17 e3 20 41 25 |Data..*.|..4.. A%|
|00000730| 20 3d 20 31 20 b8 20 4e | 75 6d 5f 43 6f 6c 25 0d | = 1 . N|um_Col%.|
|00000740| 03 3e 12 20 20 e3 20 42 | 25 20 3d 20 31 20 b8 20 |.>.  . B|% = 1 . |
|00000750| 33 0d 03 48 16 20 20 20 | 20 e3 20 43 25 20 3d 20 |3..H.   | . C% = |
|00000760| 31 20 b8 20 34 30 30 0d | 03 52 25 20 20 20 20 20 |1 . 400.|.R%     |
|00000770| 20 44 61 79 5f 6f 66 5f | 59 65 61 72 24 28 41 25 | Day_of_|Year$(A%|
|00000780| 2c 42 25 2c 43 25 29 20 | 3d 20 22 22 0d 03 5c 0c |,B%,C%) |= ""..\.|
|00000790| 20 20 20 20 ed 20 43 25 | 0d 03 66 0a 20 20 ed 20 |    . C%|..f.  . |
|000007a0| 42 25 0d 03 70 08 ed 20 | 41 25 0d 03 7a 04 0d 03 |B%..p.. |A%..z...|
|000007b0| 84 27 49 6e 70 75 74 5f | 46 69 6c 65 24 20 3d 20 |.'Input_|File$ = |
|000007c0| 22 3c 4f 62 65 79 24 44 | 69 72 3e 2e 43 61 6c 5f |"<Obey$D|ir>.Cal_|
|000007d0| 54 68 69 73 22 0d 03 8e | 35 f1 20 27 8a 31 32 29 |This"...|5. '.12)|
|000007e0| 22 53 45 54 54 49 4e 47 | 20 55 50 20 54 48 49 53 |"SETTING| UP THIS|
|000007f0| 20 59 45 41 52 20 44 41 | 54 41 20 66 72 6f 6d 20 | YEAR DA|TA from |
|00000800| 43 61 6c 5f 54 68 69 73 | 22 27 0d 03 98 0a 4c 25 |Cal_This|"'....L%|
|00000810| 20 3d 20 30 0d 03 a2 1c | 46 69 6c 65 5f 49 6e 20 | = 0....|File_In |
|00000820| 3d 20 8e 28 49 6e 70 75 | 74 5f 46 69 6c 65 24 29 |= .(Inpu|t_File$)|
|00000830| 0d 03 ac 28 4f 75 74 70 | 75 74 5f 46 69 6c 65 24 |...(Outp|ut_File$|
|00000840| 20 3d 20 22 3c 4f 62 65 | 79 24 44 69 72 3e 2e 43 | = "<Obe|y$Dir>.C|
|00000850| 61 6c 5f 44 61 74 61 22 | 0d 03 b6 1e 46 69 6c 65 |al_Data"|....File|
|00000860| 5f 4f 75 74 20 3d 20 ae | 28 4f 75 74 70 75 74 5f |_Out = .|(Output_|
|00000870| 46 69 6c 65 24 29 0d 03 | c0 04 0d 03 ca 18 59 65 |File$)..|......Ye|
|00000880| 61 72 25 20 3d 20 bb 28 | a4 47 65 74 5f 4c 69 6e |ar% = .(|.Get_Lin|
|00000890| 65 29 0d 03 d4 75 e7 20 | 59 65 61 72 25 20 3c 20 |e)...u. |Year% < |
|000008a0| 31 39 30 31 20 84 20 59 | 65 61 72 25 20 3e 20 32 |1901 . Y|ear% > 2|
|000008b0| 30 39 39 20 8c 20 f2 45 | 72 72 6f 72 28 22 59 65 |099 . .E|rror("Ye|
|000008c0| 61 72 20 28 56 61 6c 75 | 65 3d 22 2b c3 28 59 65 |ar (Valu|e="+.(Ye|
|000008d0| 61 72 25 29 2b 22 29 20 | 2d 2d 20 6d 75 73 74 20 |ar%)+") |-- must |
|000008e0| 62 65 20 62 65 74 77 65 | 65 6e 20 31 39 30 31 20 |be betwe|en 1901 |
|000008f0| 61 6e 64 20 32 30 39 39 | 22 29 3a 59 65 61 72 25 |and 2099|"):Year%|
|00000900| 20 3d 20 31 39 39 34 0d | 03 de 53 e7 20 59 65 61 | = 1994.|..S. Yea|
|00000910| 72 25 20 83 20 34 20 3d | 20 30 20 8c 20 4d 6f 6e |r% . 4 =| 0 . Mon|
|00000920| 74 68 5f 4c 65 6e 67 74 | 68 25 28 32 29 20 3d 20 |th_Lengt|h%(2) = |
|00000930| 32 39 3a 59 65 61 72 5f | 4c 65 6e 67 74 68 25 20 |29:Year_|Length% |
|00000940| 3d 20 33 36 36 20 8b 20 | 59 65 61 72 5f 4c 65 6e |= 366 . |Year_Len|
|00000950| 67 74 68 25 20 3d 20 33 | 36 35 0d 03 e8 1e e3 20 |gth% = 3|65..... |
|00000960| 4d 25 20 3d 20 31 20 b8 | 20 4d 6f 6e 74 68 73 5f |M% = 1 .| Months_|
|00000970| 69 6e 5f 59 65 61 72 25 | 0d 03 f2 3f 20 20 4d 6f |in_Year%|...?  Mo|
|00000980| 6e 74 68 5f 4f 66 66 73 | 65 74 25 28 4d 25 2b 31 |nth_Offs|et%(M%+1|
|00000990| 29 20 3d 20 4d 6f 6e 74 | 68 5f 4f 66 66 73 65 74 |) = Mont|h_Offset|
|000009a0| 25 28 4d 25 29 2b 4d 6f | 6e 74 68 5f 4c 65 6e 67 |%(M%)+Mo|nth_Leng|
|000009b0| 74 68 25 28 4d 25 29 0d | 03 fc 08 ed 20 4d 25 0d |th%(M%).|.... M%.|
|000009c0| 04 06 04 0d 04 10 3d 53 | 74 61 72 74 5f 44 61 79 |......=S|tart_Day|
|000009d0| 25 20 3d 20 28 28 28 59 | 65 61 72 25 2d 31 39 30 |% = (((Y|ear%-190|
|000009e0| 31 29 20 2b 20 a8 28 59 | 65 61 72 25 2d 31 39 30 |1) + .(Y|ear%-190|
|000009f0| 31 29 20 81 20 34 29 20 | 83 20 37 29 20 2b 20 32 |1) . 4) |. 7) + 2|
|00000a00| 0d 04 1a 25 e7 20 53 74 | 61 72 74 5f 44 61 79 25 |...%. St|art_Day%|
|00000a10| 20 3d 20 38 20 8c 20 53 | 74 61 72 74 5f 44 61 79 | = 8 . S|tart_Day|
|00000a20| 25 20 3d 20 31 0d 04 24 | 04 0d 04 2e 0b 4c 4c 25 |% = 1..$|.....LL%|
|00000a30| 20 3d 20 32 0d 04 38 04 | 0d 04 42 05 f5 0d 04 4c | = 2..8.|..B....L|
|00000a40| 17 20 20 4c 69 6e 65 24 | 20 3d 20 a4 47 65 74 5f |.  Line$| = .Get_|
|00000a50| 4c 69 6e 65 0d 04 56 30 | e7 20 c0 4c 69 6e 65 24 |Line..V0|. .Line$|
|00000a60| 2c 33 29 20 3d 20 22 45 | 4e 44 22 20 8c 20 fd 20 |,3) = "E|ND" . . |
|00000a70| b9 20 8b 20 f2 4e 6f 74 | 61 62 6c 65 5f 44 61 79 |. . .Not|able_Day|
|00000a80| 3a fd 20 a3 0d 04 60 04 | 0d 04 6a 05 e1 0d 04 74 |:. ...`.|..j....t|
|00000a90| 04 0d 04 7e 04 0d 04 88 | 11 dd f2 4e 6f 74 61 62 |...~....|...Notab|
|00000aa0| 6c 65 5f 44 61 79 0d 04 | 92 04 0d 04 9c 0a 49 25 |le_Day..|......I%|
|00000ab0| 20 3d 20 30 0d 04 a6 04 | 0d 04 b0 13 4d 24 20 3d | = 0....|....M$ =|
|00000ac0| 20 a4 4e 65 78 74 5f 57 | 6f 72 64 0d 04 ba 12 e7 | .Next_W|ord.....|
|00000ad0| 20 bb 28 4d 24 29 20 3c | 3e 20 30 20 8c 0d 04 c4 | .(M$) <|> 0 ....|
|00000ae0| 1e 20 20 44 61 79 73 5f | 69 6e 5f 41 64 76 61 6e |.  Days_|in_Advan|
|00000af0| 63 65 25 20 3d 20 bb 28 | 4d 24 29 0d 04 ce 15 20 |ce% = .(|M$).... |
|00000b00| 20 4d 24 20 3d 20 a4 4e | 65 78 74 5f 57 6f 72 64 | M$ = .N|ext_Word|
|00000b10| 0d 04 d8 05 cc 0d 04 e2 | 1a 20 20 44 61 79 73 5f |........|.  Days_|
|00000b20| 69 6e 5f 41 64 76 61 6e | 63 65 25 20 3d 20 30 0d |in_Advan|ce% = 0.|
|00000b30| 04 ec 05 cd 0d 04 f6 04 | 0d 05 00 21 4d 25 20 3d |........|...!M% =|
|00000b40| 20 a8 28 28 a7 4d 6f 6e | 74 68 24 2c c0 4d 24 2c | .((.Mon|th$,.M$,|
|00000b50| 33 29 29 2b 32 29 2f 33 | 29 0d 05 0a 82 e7 20 4d |3))+2)/3|)..... M|
|00000b60| 25 20 3c 20 31 20 84 20 | 4d 25 20 3e 20 4d 6f 6e |% < 1 . |M% > Mon|
|00000b70| 74 68 73 5f 69 6e 5f 59 | 65 61 72 25 20 8c 20 f2 |ths_in_Y|ear% . .|
|00000b80| 45 72 72 6f 72 28 22 4d | 6f 6e 74 68 20 28 56 61 |Error("M|onth (Va|
|00000b90| 6c 75 65 3d 22 2b 4d 24 | 2b 22 29 20 2d 2d 20 6d |lue="+M$|+") -- m|
|00000ba0| 75 73 74 20 62 65 20 61 | 74 20 6c 65 61 73 74 20 |ust be a|t least |
|00000bb0| 74 68 65 20 66 69 72 73 | 74 20 74 68 72 65 65 20 |the firs|t three |
|00000bc0| 6c 65 74 74 65 72 73 20 | 28 65 67 20 27 4a 61 6e |letters |(eg 'Jan|
|00000bd0| 27 29 22 29 3a 4d 25 20 | 3d 20 31 0d 05 14 18 e7 |')"):M% |= 1.....|
|00000be0| 20 54 6f 6f 5f 46 65 77 | 5f 50 61 72 61 6d 73 20 | Too_Few|_Params |
|00000bf0| 8c 20 e1 0d 05 1e 04 0d | 05 28 16 44 25 20 3d 20 |. ......|.(.D% = |
|00000c00| bb 28 a4 4e 65 78 74 5f | 57 6f 72 64 29 0d 05 32 |.(.Next_|Word)..2|
|00000c10| 99 e7 20 44 25 20 3c 20 | 31 20 84 20 44 25 20 3e |.. D% < |1 . D% >|
|00000c20| 20 4d 6f 6e 74 68 5f 4c | 65 6e 67 74 68 25 28 4d | Month_L|ength%(M|
|00000c30| 25 29 20 8c 20 f2 45 72 | 72 6f 72 28 22 44 61 79 |%) . .Er|ror("Day|
|00000c40| 20 6f 66 20 74 68 69 73 | 20 6d 6f 6e 74 68 20 22 | of this| month "|
|00000c50| 2b 4d 24 2b 22 20 28 56 | 61 6c 75 65 3d 22 2b c3 |+M$+" (V|alue="+.|
|00000c60| 28 44 25 29 2b 22 29 20 | 2d 2d 20 6d 75 73 74 20 |(D%)+") |-- must |
|00000c70| 62 65 20 62 65 74 77 65 | 65 6e 20 31 20 61 6e 64 |be betwe|en 1 and|
|00000c80| 20 22 2b c3 28 4d 6f 6e | 74 68 5f 4c 65 6e 67 74 | "+.(Mon|th_Lengt|
|00000c90| 68 25 28 4d 25 29 29 29 | 3a 44 25 20 3d 20 4c 25 |h%(M%)))|:D% = L%|
|00000ca0| 20 2d 20 4c 4c 25 0d 05 | 3c 18 e7 20 54 6f 6f 5f | - LL%..|<.. Too_|
|00000cb0| 46 65 77 5f 50 61 72 61 | 6d 73 20 8c 20 e1 0d 05 |Few_Para|ms . ...|
|00000cc0| 46 2e 44 25 20 3d 20 4d | 6f 6e 74 68 5f 4f 66 66 |F.D% = M|onth_Off|
|00000cd0| 73 65 74 25 28 4d 25 29 | 2b 44 25 2d 44 61 79 73 |set%(M%)|+D%-Days|
|00000ce0| 5f 69 6e 5f 41 64 76 61 | 6e 63 65 25 0d 05 50 87 |_in_Adva|nce%..P.|
|00000cf0| e7 20 44 25 20 3c 20 30 | 20 84 20 44 25 20 3e 20 |. D% < 0| . D% > |
|00000d00| 59 65 61 72 5f 4c 65 6e | 67 74 68 25 20 8c 20 f2 |Year_Len|gth% . .|
|00000d10| 45 72 72 6f 72 28 22 54 | 6f 6f 20 6d 61 6e 79 20 |Error("T|oo many |
|00000d20| 64 61 79 73 20 69 6e 20 | 61 64 76 61 6e 63 65 20 |days in |advance |
|00000d30| 28 56 61 6c 75 65 3d 22 | 2b c3 28 44 25 29 2b 22 |(Value="|+.(D%)+"|
|00000d40| 29 20 2d 2d 20 6d 75 73 | 74 20 62 65 20 77 69 74 |) -- mus|t be wit|
|00000d50| 68 69 6e 20 79 65 61 72 | 20 62 6f 75 6e 64 61 72 |hin year| boundar|
|00000d60| 69 65 73 22 29 3a 44 25 | 20 3d 20 4c 25 20 2d 20 |ies"):D%| = L% - |
|00000d70| 4c 4c 25 0d 05 5a 04 0d | 05 64 16 52 25 20 3d 20 |LL%..Z..|.d.R% = |
|00000d80| bb 28 a4 4e 65 78 74 5f | 57 6f 72 64 29 0d 05 6e |.(.Next_|Word)..n|
|00000d90| 59 e7 20 52 25 20 3c 20 | 31 20 84 20 52 25 20 3e |Y. R% < |1 . R% >|
|00000da0| 20 33 20 8c 20 f2 45 72 | 72 6f 72 28 22 52 6f 77 | 3 . .Er|ror("Row|
|00000db0| 20 28 56 61 6c 75 65 3d | 22 2b c3 28 52 25 29 2b | (Value=|"+.(R%)+|
|00000dc0| 22 29 20 2d 2d 20 6d 75 | 73 74 20 62 65 20 62 65 |") -- mu|st be be|
|00000dd0| 74 77 65 65 6e 20 31 20 | 61 6e 64 20 33 22 29 3a |tween 1 |and 3"):|
|00000de0| 52 25 20 3d 20 31 0d 05 | 78 18 e7 20 54 6f 6f 5f |R% = 1..|x.. Too_|
|00000df0| 46 65 77 5f 50 61 72 61 | 6d 73 20 8c 20 e1 0d 05 |Few_Para|ms . ...|
|00000e00| 82 04 0d 05 8c 16 43 25 | 20 3d 20 bb 28 a4 4e 65 |......C%| = .(.Ne|
|00000e10| 78 74 5f 57 6f 72 64 29 | 0d 05 96 67 e7 20 43 25 |xt_Word)|...g. C%|
|00000e20| 20 3c 20 31 20 84 20 43 | 25 20 3e 20 35 20 8c 20 | < 1 . C|% > 5 . |
|00000e30| f2 45 72 72 6f 72 28 22 | 43 6f 6c 75 6d 6e 20 28 |.Error("|Column (|
|00000e40| 56 61 6c 75 65 3d 22 2b | c3 28 43 25 29 2b 22 29 |Value="+|.(C%)+")|
|00000e50| 20 2d 2d 20 6d 75 73 74 | 20 62 65 20 62 65 74 77 | -- must| be betw|
|00000e60| 65 65 6e 20 31 20 61 6e | 64 20 22 2b c3 28 4e 75 |een 1 an|d "+.(Nu|
|00000e70| 6d 5f 43 6f 6c 25 29 29 | 3a 43 25 20 3d 20 31 0d |m_Col%))|:C% = 1.|
|00000e80| 05 a0 18 e7 20 54 6f 6f | 5f 46 65 77 5f 50 61 72 |.... Too|_Few_Par|
|00000e90| 61 6d 73 20 8c 20 e1 0d | 05 aa 04 0d 05 b4 18 53 |ams . ..|.......S|
|00000ea0| 24 20 3d 20 c1 4c 69 6e | 65 24 2c 49 25 2b 31 2c |$ = .Lin|e$,I%+1,|
|00000eb0| 39 39 29 0d 05 be 04 0d | 05 c8 17 f1 20 22 5b 4c |99).....|.... "[L|
|00000ec0| 69 6e 65 20 22 4c 25 22 | 5d 20 22 53 24 3b 0d 05 |ine "L%"|] "S$;..|
|00000ed0| d2 1d e7 20 44 61 79 73 | 5f 69 6e 5f 41 64 76 61 |... Days|_in_Adva|
|00000ee0| 6e 63 65 25 20 3c 3e 20 | 30 20 8c 0d 05 dc 1e 20 |nce% <> |0 ..... |
|00000ef0| 20 e7 20 44 61 79 73 5f | 69 6e 5f 41 64 76 61 6e | . Days_|in_Advan|
|00000f00| 63 65 25 20 3e 20 30 20 | 8c 0d 05 e6 38 20 20 20 |ce% > 0 |....8   |
|00000f10| 20 f1 20 22 20 28 22 94 | 28 44 61 79 73 5f 69 6e | . " (".|(Days_in|
|00000f20| 5f 41 64 76 61 6e 63 65 | 25 29 22 20 64 61 79 73 |_Advance|%)" days|
|00000f30| 20 62 65 66 6f 72 65 20 | 74 68 65 20 64 61 79 29 | before |the day)|
|00000f40| 22 0d 05 f0 07 20 20 cd | 0d 05 fa 1e 20 20 e7 20 |"....  .|....  . |
|00000f50| 44 61 79 73 5f 69 6e 5f | 41 64 76 61 6e 63 65 25 |Days_in_|Advance%|
|00000f60| 20 3c 20 30 20 8c 0d 06 | 04 37 20 20 20 20 f1 20 | < 0 ...|.7    . |
|00000f70| 22 20 28 22 94 28 44 61 | 79 73 5f 69 6e 5f 41 64 |" (".(Da|ys_in_Ad|
|00000f80| 76 61 6e 63 65 25 29 22 | 20 64 61 79 73 20 61 66 |vance%)"| days af|
|00000f90| 74 65 72 20 74 68 65 20 | 64 61 79 29 22 0d 06 0e |ter the |day)"...|
|00000fa0| 07 20 20 cd 0d 06 18 05 | cc 0d 06 22 07 20 20 f1 |.  .....|...".  .|
|00000fb0| 0d 06 2c 05 cd 0d 06 36 | 04 0d 06 40 23 e7 20 44 |..,....6|...@#. D|
|00000fc0| 61 79 5f 6f 66 5f 59 65 | 61 72 24 28 43 25 2c 52 |ay_of_Ye|ar$(C%,R|
|00000fd0| 25 2c 44 25 29 20 3d 20 | 22 22 20 8c 0d 06 4a 21 |%,D%) = |"" ...J!|
|00000fe0| 20 20 44 61 79 5f 6f 66 | 5f 59 65 61 72 24 28 43 |  Day_of|_Year$(C|
|00000ff0| 25 2c 52 25 2c 44 25 29 | 20 3d 20 53 24 0d 06 54 |%,R%,D%)| = S$..T|
|00001000| 05 cc 0d 06 5e 46 20 20 | f2 45 72 72 6f 72 28 22 |....^F  |.Error("|
|00001010| 54 68 69 73 20 73 6c 6f | 74 20 75 73 65 64 20 61 |This slo|t used a|
|00001020| 6c 72 65 61 64 79 20 62 | 79 20 27 22 2b 44 61 79 |lready b|y '"+Day|
|00001030| 5f 6f 66 5f 59 65 61 72 | 24 28 43 25 2c 52 25 2c |_of_Year|$(C%,R%,|
|00001040| 44 25 29 2b 22 27 22 29 | 0d 06 68 05 cd 0d 06 72 |D%)+"'")|..h....r|
|00001050| 04 0d 06 7c 05 e1 0d 06 | 86 04 0d 06 90 04 0d 06 |...|....|........|
|00001060| 9a 0f dd a4 4e 65 78 74 | 5f 57 6f 72 64 0d 06 a4 |....Next|_Word...|
|00001070| 04 0d 06 ae 0d 41 4e 53 | 24 20 3d 20 22 22 0d 06 |.....ANS|$ = ""..|
|00001080| b8 05 f5 0d 06 c2 11 20 | 20 49 25 20 3d 20 49 25 |....... | I% = I%|
|00001090| 20 2b 20 31 0d 06 cc 17 | 20 20 41 24 20 3d 20 c1 | + 1....|  A$ = .|
|000010a0| 4c 69 6e 65 24 2c 49 25 | 2c 31 29 0d 06 d6 38 e7 |Line$,I%|,1)...8.|
|000010b0| 20 41 24 20 3d 20 22 20 | 22 20 84 20 49 25 20 3e | A$ = " |" . I% >|
|000010c0| 20 a9 28 4c 69 6e 65 24 | 29 20 8c 20 fd b9 20 8b | .(Line$|) . .. .|
|000010d0| 20 41 4e 53 24 20 3d 20 | 41 4e 53 24 2b 41 24 3a | ANS$ = |ANS$+A$:|
|000010e0| fd 20 a3 0d 06 e0 04 0d | 06 ea 76 e7 20 49 25 20 |. ......|..v. I% |
|000010f0| 3e 20 a9 28 4c 69 6e 65 | 24 29 20 8c 20 f2 45 72 |> .(Line|$) . .Er|
|00001100| 72 6f 72 28 22 4e 6f 74 | 20 65 6e 6f 75 67 68 20 |ror("Not| enough |
|00001110| 70 61 72 61 6d 65 74 65 | 72 73 20 66 6f 72 20 61 |paramete|rs for a|
|00001120| 20 6e 6f 74 61 62 6c 65 | 20 64 61 79 22 29 3a 54 | notable| day"):T|
|00001130| 6f 6f 5f 46 65 77 5f 50 | 61 72 61 6d 73 20 3d 20 |oo_Few_P|arams = |
|00001140| b9 3a 3d 20 41 4e 53 24 | 20 8b 20 54 6f 6f 5f 46 |.:= ANS$| . Too_F|
|00001150| 65 77 5f 50 61 72 61 6d | 73 20 3d 20 a3 0d 06 f4 |ew_Param|s = ....|
|00001160| 04 0d 06 fe 05 f5 0d 07 | 08 11 20 20 49 25 20 3d |........|..  I% =|
|00001170| 20 49 25 20 2b 20 31 0d | 07 12 17 20 20 41 24 20 | I% + 1.|...  A$ |
|00001180| 3d 20 c1 4c 69 6e 65 24 | 2c 49 25 2c 31 29 0d 07 |= .Line$|,I%,1)..|
|00001190| 1c 1f fd 20 41 24 20 3c | 3e 20 22 20 22 20 84 20 |... A$ <|> " " . |
|000011a0| 49 25 20 3e 20 a9 28 4c | 69 6e 65 24 29 0d 07 26 |I% > .(L|ine$)..&|
|000011b0| 0f 49 25 20 3d 20 49 25 | 20 2d 20 31 0d 07 30 04 |.I% = I%| - 1..0.|
|000011c0| 0d 07 3a 6f e7 20 49 25 | 20 3e 20 a9 28 4c 69 6e |..:o. I%| > .(Lin|
|000011d0| 65 24 29 20 8c 20 f2 45 | 72 72 6f 72 28 22 4e 6f |e$) . .E|rror("No|
|000011e0| 74 20 65 6e 6f 75 67 68 | 20 70 61 72 61 6d 65 74 |t enough| paramet|
|000011f0| 65 72 73 20 66 6f 72 20 | 61 20 6e 6f 74 61 62 6c |ers for |a notabl|
|00001200| 65 20 64 61 79 22 29 3a | 54 6f 6f 5f 46 65 77 5f |e day"):|Too_Few_|
|00001210| 50 61 72 61 6d 73 20 3d | 20 b9 20 8b 20 54 6f 6f |Params =| . . Too|
|00001220| 5f 46 65 77 5f 50 61 72 | 61 6d 73 20 3d 20 a3 0d |_Few_Par|ams = ..|
|00001230| 07 44 04 0d 07 4e 0a 3d | 20 41 4e 53 24 0d 07 58 |.D...N.=| ANS$..X|
|00001240| 04 0d 07 62 04 0d 07 6c | 0e dd a4 47 65 74 5f 4c |...b...l|...Get_L|
|00001250| 69 6e 65 0d 07 76 04 0d | 07 80 05 f5 0d 07 8a 17 |ine..v..|........|
|00001260| 20 20 42 79 74 65 25 20 | 3d 20 9a 23 46 69 6c 65 |  Byte% |= .#File|
|00001270| 5f 49 6e 0d 07 94 1d fd | 20 42 79 74 65 25 20 3c |_In.....| Byte% <|
|00001280| 3e 20 33 32 20 84 20 c5 | 23 46 69 6c 65 5f 49 6e |> 32 . .|#File_In|
|00001290| 0d 07 9e 16 53 74 72 69 | 6e 67 24 20 3d 20 bd 28 |....Stri|ng$ = .(|
|000012a0| 42 79 74 65 25 29 0d 07 | a8 04 0d 07 b2 16 e7 20 |Byte%)..|....... |
|000012b0| c5 23 46 69 6c 65 5f 49 | 6e 20 8c 20 3d 20 22 22 |.#File_I|n . = ""|
|000012c0| 0d 07 bc 04 0d 07 c6 0f | 4c 25 20 3d 20 4c 25 20 |........|L% = L% |
|000012d0| 2b 20 31 0d 07 d0 05 f5 | 0d 07 da 17 20 20 42 79 |+ 1.....|....  By|
|000012e0| 74 65 25 20 3d 20 9a 23 | 46 69 6c 65 5f 49 6e 0d |te% = .#|File_In.|
|000012f0| 07 e4 42 e7 20 42 79 74 | 65 25 20 3d 20 31 30 20 |..B. Byt|e% = 10 |
|00001300| 84 20 42 79 74 65 25 20 | 3d 20 31 33 20 fd 20 b9 |. Byte% |= 13 . .|
|00001310| 20 8b 20 53 74 72 69 6e | 67 24 20 3d 20 53 74 72 | . Strin|g$ = Str|
|00001320| 69 6e 67 24 2b bd 28 42 | 79 74 65 25 29 3a fd 20 |ing$+.(B|yte%):. |
|00001330| a3 0d 07 ee 04 0d 07 f8 | 0d 3d 20 53 74 72 69 6e |........|.= Strin|
|00001340| 67 24 0d 08 02 04 0d 08 | 0c 04 0d 08 16 1a dd f2 |g$......|........|
|00001350| 45 72 72 6f 72 28 45 72 | 72 6f 72 5f 53 74 72 69 |Error(Er|ror_Stri|
|00001360| 6e 67 24 29 0d 08 20 04 | 0d 08 2a 21 f1 20 22 5b |ng$).. .|..*!. "[|
|00001370| 4c 69 6e 65 20 22 4c 25 | 22 5d 20 22 45 72 72 6f |Line "L%|"] "Erro|
|00001380| 72 5f 53 74 72 69 6e 67 | 24 0d 08 34 22 e8 20 89 |r_String|$..4". .|
|00001390| 28 31 30 29 22 50 72 65 | 73 73 20 3c 45 6e 74 65 |(10)"Pre|ss <Ente|
|000013a0| 72 3e 20 22 3b 44 75 6d | 6d 79 24 0d 08 3e 17 45 |r> ";Dum|my$..>.E|
|000013b0| 72 72 6f 72 25 20 3d 20 | 45 72 72 6f 72 25 20 2b |rror% = |Error% +|
|000013c0| 20 31 0d 08 48 04 0d 08 | 52 05 e1 0d 08 5c 04 0d | 1..H...|R....\..|
|000013d0| 08 66 04 0d 08 70 0f dd | f2 43 61 6c 63 75 6c 61 |.f...p..|.Calcula|
|000013e0| 74 65 0d 08 7a 04 0d 08 | 84 2b f1 20 27 27 8a 31 |te..z...|.+. ''.1|
|000013f0| 39 29 22 43 41 4c 43 55 | 4c 41 54 49 4e 47 20 22 |9)"CALCU|LATING "|
|00001400| 59 65 61 72 25 22 20 43 | 41 4c 45 4e 44 41 52 22 |Year%" C|ALENDAR"|
|00001410| 27 0d 08 8e 04 0d 08 98 | 0e 4d 6f 6e 74 68 25 20 |'.......|.Month% |
|00001420| 3d 20 30 0d 08 a2 15 44 | 61 79 5f 6f 66 5f 4d 6f |= 0....D|ay_of_Mo|
|00001430| 6e 74 68 25 20 3d 20 30 | 0d 08 ac 04 0d 08 b6 1d |nth% = 0|........|
|00001440| f2 42 6c 61 6e 6b 5f 44 | 61 79 73 28 53 74 61 72 |.Blank_D|ays(Star|
|00001450| 74 5f 44 61 79 25 2d 31 | 29 0d 08 c0 04 0d 08 ca |t_Day%-1|).......|
|00001460| 21 44 61 79 5f 6f 66 5f | 57 65 65 6b 25 20 3d 20 |!Day_of_|Week% = |
|00001470| 53 74 61 72 74 5f 44 61 | 79 25 20 2d 20 31 0d 08 |Start_Da|y% - 1..|
|00001480| d4 1d e3 20 44 61 79 25 | 20 3d 20 31 20 b8 20 59 |... Day%| = 1 . Y|
|00001490| 65 61 72 5f 4c 65 6e 67 | 74 68 25 0d 08 de 25 20 |ear_Leng|th%...% |
|000014a0| 20 44 61 79 5f 6f 66 5f | 57 65 65 6b 25 20 3d 20 | Day_of_|Week% = |
|000014b0| 44 61 79 5f 6f 66 5f 57 | 65 65 6b 25 20 2b 20 31 |Day_of_W|eek% + 1|
|000014c0| 0d 08 e8 37 20 20 e7 20 | 44 61 79 5f 6f 66 5f 57 |...7  . |Day_of_W|
|000014d0| 65 65 6b 25 20 3e 20 44 | 61 79 73 5f 69 6e 5f 57 |eek% > D|ays_in_W|
|000014e0| 65 65 6b 25 20 8c 20 44 | 61 79 5f 6f 66 5f 57 65 |eek% . D|ay_of_We|
|000014f0| 65 6b 25 20 3d 20 31 0d | 08 f2 27 20 20 44 61 79 |ek% = 1.|..'  Day|
|00001500| 5f 6f 66 5f 4d 6f 6e 74 | 68 25 20 3d 20 44 61 79 |_of_Mont|h% = Day|
|00001510| 5f 6f 66 5f 4d 6f 6e 74 | 68 25 20 2b 20 31 0d 08 |_of_Mont|h% + 1..|
|00001520| fc 7c 20 20 e7 20 44 61 | 79 5f 6f 66 5f 4d 6f 6e |.|  . Da|y_of_Mon|
|00001530| 74 68 25 20 3e 20 4d 6f | 6e 74 68 5f 4c 65 6e 67 |th% > Mo|nth_Leng|
|00001540| 74 68 25 28 4d 6f 6e 74 | 68 25 29 20 8c 20 4d 6f |th%(Mont|h%) . Mo|
|00001550| 6e 74 68 25 3d 4d 6f 6e | 74 68 25 2b 31 3a f1 20 |nth%=Mon|th%+1:. |
|00001560| 8a 31 37 2b 32 30 2a 28 | 28 4d 6f 6e 74 68 25 2d |.17+20*(|(Month%-|
|00001570| 31 29 83 32 29 29 4d 6f | 6e 74 68 5f 4e 61 6d 65 |1).2))Mo|nth_Name|
|00001580| 24 28 4d 6f 6e 74 68 25 | 29 3b 3a 44 61 79 5f 6f |$(Month%|);:Day_o|
|00001590| 66 5f 4d 6f 6e 74 68 25 | 3d 31 0d 09 06 04 0d 09 |f_Month%|=1......|
|000015a0| 10 45 20 20 f2 4f 75 74 | 70 75 74 5f 52 6f 77 28 |.E  .Out|put_Row(|
|000015b0| 43 25 2c 31 2c 44 61 79 | 25 2c 44 61 79 5f 4f 6e |C%,1,Day|%,Day_On|
|000015c0| 24 2c 44 61 79 5f 4e 61 | 6d 65 24 28 44 61 79 5f |$,Day_Na|me$(Day_|
|000015d0| 6f 66 5f 57 65 65 6b 25 | 29 2c 44 61 79 5f 4f 66 |of_Week%|),Day_Of|
|000015e0| 66 24 29 0d 09 1a 40 20 | 20 f2 4f 75 74 70 75 74 |f$)...@ | .Output|
|000015f0| 5f 52 6f 77 28 43 25 2c | 32 2c 44 61 79 25 2c 44 |_Row(C%,|2,Day%,D|
|00001600| 61 74 65 5f 4f 6e 24 2c | c3 28 44 61 79 5f 6f 66 |ate_On$,|.(Day_of|
|00001610| 5f 4d 6f 6e 74 68 25 29 | 2c 44 61 74 65 5f 4f 66 |_Month%)|,Date_Of|
|00001620| 66 24 29 0d 09 24 45 20 | 20 f2 4f 75 74 70 75 74 |f$)..$E | .Output|
|00001630| 5f 52 6f 77 28 43 25 2c | 33 2c 44 61 79 25 2c 4d |_Row(C%,|3,Day%,M|
|00001640| 6f 6e 74 68 5f 4f 6e 24 | 2c 4d 6f 6e 74 68 5f 4e |onth_On$|,Month_N|
|00001650| 61 6d 65 24 28 4d 6f 6e | 74 68 25 29 2c 4d 6f 6e |ame$(Mon|th%),Mon|
|00001660| 74 68 5f 4f 66 66 24 29 | 0d 09 2e 0a ed 20 44 61 |th_Off$)|..... Da|
|00001670| 79 25 0d 09 38 07 f1 20 | 27 0d 09 42 04 0d 09 4c |y%..8.. |'..B...L|
|00001680| 05 e1 0d 09 56 04 0d 09 | 60 04 0d 09 6a 3e dd f2 |....V...|`...j>..|
|00001690| 4f 75 74 70 75 74 5f 52 | 6f 77 28 43 25 2c 52 25 |Output_R|ow(C%,R%|
|000016a0| 2c 44 25 2c 4f 6e 5f 53 | 74 72 69 6e 67 24 2c 44 |,D%,On_S|tring$,D|
|000016b0| 61 74 61 5f 53 74 72 69 | 6e 67 24 2c 4f 66 66 5f |ata_Stri|ng$,Off_|
|000016c0| 53 74 72 69 6e 67 24 29 | 0d 09 74 04 0d 09 7e 1a |String$)|..t...~.|
|000016d0| 4e 6f 74 61 62 6c 65 5f | 44 61 79 5f 46 6f 75 6e |Notable_|Day_Foun|
|000016e0| 64 25 20 3d 20 a3 0d 09 | 88 0b 43 43 25 20 3d 20 |d% = ...|..CC% = |
|000016f0| 36 0d 09 92 05 f5 0d 09 | 9c 13 20 20 43 43 25 20 |6.......|..  CC% |
|00001700| 3d 20 43 43 25 20 2d 20 | 31 0d 09 a6 3e 20 20 e7 |= CC% - |1...>  .|
|00001710| 20 44 61 79 5f 6f 66 5f | 59 65 61 72 24 28 43 43 | Day_of_|Year$(CC|
|00001720| 25 2c 52 25 2c 44 25 29 | 20 3c 3e 20 22 22 20 8c |%,R%,D%)| <> "" .|
|00001730| 20 4e 6f 74 61 62 6c 65 | 5f 44 61 79 5f 46 6f 75 | Notable|_Day_Fou|
|00001740| 6e 64 25 20 3d 20 b9 0d | 09 b0 22 fd 20 43 43 25 |nd% = ..|..". CC%|
|00001750| 20 3d 20 31 20 84 20 4e | 6f 74 61 62 6c 65 5f 44 | = 1 . N|otable_D|
|00001760| 61 79 5f 46 6f 75 6e 64 | 25 0d 09 ba 04 0d 09 c4 |ay_Found|%.......|
|00001770| 2f 46 69 6c 65 5f 53 74 | 72 69 6e 67 24 20 3d 20 |/File_St|ring$ = |
|00001780| 4f 6e 5f 53 74 72 69 6e | 67 24 2b 54 61 62 24 2b |On_Strin|g$+Tab$+|
|00001790| 44 61 74 61 5f 53 74 72 | 69 6e 67 24 0d 09 ce 04 |Data_Str|ing$....|
|000017a0| 0d 09 d8 1a e7 20 4e 6f | 74 61 62 6c 65 5f 44 61 |..... No|table_Da|
|000017b0| 79 5f 46 6f 75 6e 64 25 | 20 8c 0d 09 e2 2d 20 20 |y_Found%| ....-  |
|000017c0| 46 69 6c 65 5f 53 74 72 | 69 6e 67 24 20 3d 20 46 |File_Str|ing$ = F|
|000017d0| 69 6c 65 5f 53 74 72 69 | 6e 67 24 2b 4f 66 66 5f |ile_Stri|ng$+Off_|
|000017e0| 53 74 72 69 6e 67 24 0d | 09 ec 14 20 20 e3 20 43 |String$.|...  . C|
|000017f0| 25 20 3d 20 31 20 b8 20 | 43 43 25 0d 09 f6 3f 20 |% = 1 . |CC%...? |
|00001800| 20 20 20 46 69 6c 65 5f | 53 74 72 69 6e 67 24 20 |   File_|String$ |
|00001810| 3d 20 46 69 6c 65 5f 53 | 74 72 69 6e 67 24 2b 54 |= File_S|tring$+T|
|00001820| 61 62 24 2b 44 61 79 5f | 6f 66 5f 59 65 61 72 24 |ab$+Day_|of_Year$|
|00001830| 28 43 25 2c 52 25 2c 44 | 25 29 0d 0a 00 0a 20 20 |(C%,R%,D|%)....  |
|00001840| ed 20 43 25 0d 0a 0a 2c | 20 20 46 69 6c 65 5f 53 |. C%...,|  File_S|
|00001850| 74 72 69 6e 67 24 20 3d | 20 46 69 6c 65 5f 53 74 |tring$ =| File_St|
|00001860| 72 69 6e 67 24 2b 4f 6e | 5f 53 74 72 69 6e 67 24 |ring$+On|_String$|
|00001870| 0d 0a 14 05 cd 0d 0a 1e | 04 0d 0a 28 35 46 69 6c |........|...(5Fil|
|00001880| 65 5f 53 74 72 69 6e 67 | 24 20 3d 20 46 69 6c 65 |e_String|$ = File|
|00001890| 5f 53 74 72 69 6e 67 24 | 2b 4e 65 77 5f 4c 69 6e |_String$|+New_Lin|
|000018a0| 65 24 2b 4f 66 66 5f 53 | 74 72 69 6e 67 24 0d 0a |e$+Off_S|tring$..|
|000018b0| 32 04 0d 0a 3c 1c d5 23 | 46 69 6c 65 5f 4f 75 74 |2...<..#|File_Out|
|000018c0| 2c 46 69 6c 65 5f 53 74 | 72 69 6e 67 24 3b 0d 0a |,File_St|ring$;..|
|000018d0| 46 04 0d 0a 50 05 e1 0d | 0a 5a 04 0d 0a 64 04 0d |F...P...|.Z...d..|
|000018e0| 0a 6e 16 dd f2 42 6c 61 | 6e 6b 5f 44 61 79 73 28 |.n...Bla|nk_Days(|
|000018f0| 4e 75 6d 25 29 0d 0a 78 | 04 0d 0a 82 12 e7 20 4e |Num%)..x|...... N|
|00001900| 75 6d 25 20 3d 20 30 20 | 8c 20 e1 0d 0a 8c 04 0d |um% = 0 |. ......|
|00001910| 0a 96 42 46 69 6c 65 5f | 53 74 72 69 6e 67 24 20 |..BFile_|String$ |
|00001920| 3d 20 42 6c 61 6e 6b 5f | 44 61 79 73 5f 4f 6e 24 |= Blank_|Days_On$|
|00001930| 2b c4 4e 75 6d 25 2c 4e | 65 77 5f 4c 69 6e 65 24 |+.Num%,N|ew_Line$|
|00001940| 29 2b 42 6c 61 6e 6b 5f | 44 61 79 73 5f 4f 66 66 |)+Blank_|Days_Off|
|00001950| 24 0d 0a a0 1c d5 23 46 | 69 6c 65 5f 4f 75 74 2c |$.....#F|ile_Out,|
|00001960| 46 69 6c 65 5f 53 74 72 | 69 6e 67 24 3b 0d 0a aa |File_Str|ing$;...|
|00001970| 04 0d 0a b4 05 e1 0d 0a | be 04 0d 0a c8 04 0d 0a |........|........|
|00001980| d2 11 dd f2 43 6c 6f 73 | 65 5f 46 69 6c 65 73 0d |....Clos|e_Files.|
|00001990| 0a dc 04 0d 0a e6 0d d9 | 23 46 69 6c 65 5f 49 6e |........|#File_In|
|000019a0| 0d 0a f0 0e d9 23 46 69 | 6c 65 5f 4f 75 74 0d 0a |.....#Fi|le_Out..|
|000019b0| fa 25 ff 20 22 53 65 74 | 54 79 70 65 20 22 2b 4f |.%. "Set|Type "+O|
|000019c0| 75 74 70 75 74 5f 46 69 | 6c 65 24 2b 22 20 54 65 |utput_Fi|le$+" Te|
|000019d0| 78 74 22 0d 0b 04 04 0d | 0b 0e 05 e1 0d ff       |xt".....|......  |
+--------+-------------------------+-------------------------+--------+--------+